object fTemas: TfTemas
  Left = 218
  Top = 170
  Width = 372
  Height = 218
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object BitBtn1: TBitBtn
    Left = 40
    Top = 124
    Width = 75
    Height = 25
    Caption = 'Walpaper'
    TabOrder = 0
    OnClick = BitBtn1Click
  end
  object edt1: TEdit
    Left = 130
    Top = 125
    Width = 121
    Height = 21
    TabOrder = 1
    Text = 'edt1'
  end
  object SaveDialog1: TSaveDialog
    Filter = 'JPEG files|*.JPG'
    Options = [ofPathMustExist]
    Left = 176
    Top = 56
  end
  object OpenDialog1: TOpenDialog
    DefaultExt = 'SKN'
    Filter = 'Skin files|*.SKN'
    Title = 'Open a JPEG file'
    Left = 144
    Top = 56
  end
  object sTema: TSQLDataSet
    CommandText = 'SELECT a.TEXTO, a.IMAGEM, a.CAMINHO, a.TEXTO1'#13#10'FROM TEMAS a'
    MaxBlobSize = -1
    Params = <>
    SQLConnection = DM.scSge
    Left = 72
    Top = 16
    object sTemaTEXTO: TStringField
      FieldName = 'TEXTO'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
      Size = 100
    end
    object sTemaIMAGEM: TGraphicField
      FieldName = 'IMAGEM'
      ProviderFlags = [pfInUpdate]
      BlobType = ftGraphic
    end
    object sTemaCAMINHO: TStringField
      FieldName = 'CAMINHO'
      ProviderFlags = [pfInUpdate]
      Size = 200
    end
    object sTemaTEXTO1: TStringField
      FieldName = 'TEXTO1'
      ProviderFlags = [pfInUpdate]
      Size = 100
    end
  end
  object dTema: TDataSetProvider
    DataSet = sTema
    Left = 104
    Top = 16
  end
  object dsTema: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dTema'
    Left = 136
    Top = 16
    object dsTemaTEXTO: TStringField
      FieldName = 'TEXTO'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
      Size = 100
    end
    object dsTemaIMAGEM: TGraphicField
      FieldName = 'IMAGEM'
      ProviderFlags = [pfInUpdate]
      BlobType = ftGraphic
    end
    object dsTemaCAMINHO: TStringField
      FieldName = 'CAMINHO'
      ProviderFlags = [pfInUpdate]
      Size = 200
    end
    object dsTemaTEXTO1: TStringField
      FieldName = 'TEXTO1'
      ProviderFlags = [pfInUpdate]
      Size = 100
    end
  end
  object ds2: TDataSource
    Left = 168
    Top = 16
  end
end
